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; 1 1 MODULE veerrneaheat ZTITLE ‘RT=-11 name manipulation routines’ 

; § g IDENT = 'V04-000' | 

3 $ ¢ RDORESS 1G_MODE (EXTERNAL=LONG_RELATIVE, NONEXTERNAL=WORD_RELATIVE) | 

3 = 

: 8 $ : BEGIN | 

: 3 3 : leneeeuaneenercaneenteeenneenneerecereerenertrerentrentnnnernetnnennententtns i 

; :* © 

; 10 10 1 !®* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

: 11 11 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. : 

: i 1 ! :* ALL RIGHTS RESERVED. . 

> 14 14 1 i® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

s 15 015 1 !* ONLY IN ACCORDANCE WITH THE TERM F SUCH LICENSE AND WITH THE * 

3 1 Big 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

ith 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

tie Bete 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: 4 8 : - TRANSFERRED. * 

° ; % 

; A 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

3 ¢ 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

: $7 88 Z : :* CORPORATION. . 

; $e 0025 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

3 3 80 8 ; - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 

: 28 0028 1 i* * 

: 9 it 84 ; Vee ROAR AAAARAAAAEA RATER AEE AERA AAA AAA RARER 

; 0 00 

; 1 0031 1 !+¢ 

3 § 74 ! FACILITY: EXCHANGE - Foreign volume interchange facility 

; 7 0034 } ABSTRACT: Primary action routines for DELETE, RENAME and other RT-11 name manipulation routines 

; : 0036 ' ENVIRONMENT: VAX/VMS User mode 

; HA 0038 1 | AUTHOR: CW Hobbs CREATION DATE: 28-Nov-1982 

; 0039 1! 

; 40 0040 1 ! MODIFIED BY: 

;. (O41 0041 1! 

3 $5 944 1! V03-002 CWH3002 CW Hobbs 12-Apr-1984 

» «§ 004635 1! On a boot copy, allow an opt ional second parameter for 

; 646 Bee 1! compatibility with the RT11 syntax. If present, make 

3 6465 5 1! sure that it refers to the same device as the first parm. 

3 46 pee , ¢ | 

; «6 47 1! 

; 48 48 1 Ie | 

; «649 049 1 

3 31 Be0 : Include files: 

: § 26 1 MACRO Smodule_name_string = ‘exch$rtnam' 2%; ! The require file needs to know our module name 

; > $03 1 REQUIRE ‘SRCSTEXCREQ' ! Facility-wide require file 

: 54 054 #1 3 
| 
| 
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RT=11 name manipulation routines 
Module table of contents 


1 ZSBITL ‘Module table of contents’ 
' Module table of contents: 


' 
FORWARD ROUTINE 
rtnam_common, 
tat lh en of boot, 
exch$rtnam_delete, 
rtnam_delete_action, 
rtnam_init 
rtnam_parse_cleanup 
rtnam_parse_next_input, 
exch$rtnam_rename, 
rtnam_rename_action 


_ 


: EXCHANGE facility routines 


EXTERNAL ROUTINE 
excnscmd_cl!_get_ integer. 
exch$cmd_related_ file_parse, 

exch$cmd_parse_filespec, 

exch$cmd_unwind cli syntax, 


exch$copy_namb_fo_ 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: 

1 exch$io_rtll_write, 

1 excheneyn.. implied mount, 
1 exch$rt11l_create Tile, 
1 exch$rt11_dircache_start 
1 exch$rt11_dircache_stop 
1 exch$rt11_dirseg_put, 

1 exch$rtacp_consolidate, 
1 exch$rtacp_find_file, 

1 exch$rt 
1 exch$rt11 
: exch$rt11 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
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1 
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exch$util_fao_buffer, 
exch$util"filB_allocate, 
exch$util_filb_release 
exch$util_file_error, 

9 exchut it _nenb.celease : 

9 exch$util_radix50_from_ascii, 

9 exch$util_rmsb_allocate, 

9 exchduttt rash release 

9 exch$util_rtiictx_allocate, 

9 exch$util_rtiictx_release 

2 exch$util_vm_allocate 

9 e 

's4 Equated symbols: 

08 ‘LITERAL 

b7 : H 

8 ! Bound declarations: 

06 : 

07 'BIND 


16 
14 


: NOVALUE, 


: NOVALUE, 


: NOVALUE, 


: NOVALUE, 


NOVALUE, 


: NOVALUE, 


-$ 


7 
e 
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Common action routine for Golete and rename verbs 


Write a boot routine on an RT 


volume 


Main entry routine for delete verb 
Secondary action routine te verb 


Inits common to rtnam and TY 


Release structures and clean up after parse 


peyen and expand next ineut P 
Main entry routine for RENAM 
Secondary action routine for 


Get an integer value 


Compress unnecessary entries 
Find an RT11 file 
Connect an RT11 file 


ar 
v 
RE 


s 
fi 


ameter 
erb 
NAME verb 


! Parse a file specification with a related file name 
' Parse a file specification 

' Return on undefined qualifier 
! Copy fields from namb to the 
! Read blocks from RT-11 volume 
' Write blocks to an RT-11 volume 
' Do a default mount 
' Create and connect to an RT11 file 
' Start directory write caching 
! Finish write caching and flush directory 
! Write a directory segment 


lb 


Complete writing to an RT-11 volume 
Prepare to write to an RT-11 volume 


Format an fao string 
Allocate file context block 
Release file context block 
Tell about an rms error 
Release name block 

Convert ascii to radix50 


Allocate Files-11 control block 


Release Files-11 bloc 
Allocate 8T-11 context block 
Release RT-11 block 

Allocate virtual memory 


pP 
age ; 
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09 1 GLOBAL ROUTINE rtnam_common = %SBTTL 'rtnam_common' 
esi 
{| FUNCTIONAL DESCRIPTION: 

Common action routine for the DELETE and RENAME verbs for RT11 only 
INPUTS: 

none 
IMPLICIT INPUTS: 

Command parameters and qualifiers as returned from CLI$ routines. Global environment ref'd by exch$ 

$ {| ouTPUTS: 

none 
IMPLICIT OUTPUTS: 

none 
{ROUTINE VALUE: 

Success or worst error encountered. 
SIDE EFFECTS: 

Files may be created. 


MOPINOPORONORD 2 
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nteeslieaeceti ("rtnam_common> '); 


LOCAL 
abor 
nosys. signalled, 
sta 
BIND 3 
rtnam = exch$a_gbl Cexcg$a_rtnam_work] : $ref_bblock ! Pointer to work area 


: Init the name used for the input file default 


a a dk ad dd 
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str$copy_dx (rtnam Crtnam$q_input_sticky_name], ZASCID '"); 


<m 
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v04-000 rtnam_common 14-Sep-1984 12:29:08 EXCHNG.SRCJEXCRTNAM.B32;1 (4) | 


34 ; Loop through the List of input file specifications. Errors will be signalled. 


abort = false; 
60 nosys_signalled = false; 


~— 3 8OO 


: 166 
; 19? 
ig 
; 19) waILE (status = rtnam_parse_next_input ()) ! Get next input file parameter 
; if 64 BEGIN 
3 \te 65 LOCAL 
. 7 6 nam_len, 
; 174 026 typ_len, 
; ot_len 
13 is ee 
: 177 8 70 BIND 
: 178 71 filb = rtnam [rtnam$a_inp_filb] : $ref_bblock, | 
; 179 0 Le: namb = filb fi tb$a_assoc_namb : $ref bolock, 
; 180 027 volb = filb Lfilb$a_assoc — : $Sret_bblock, | 
: «181 0274 ctx = filb Cfilb$Sa_Context]_: Sref_bblock, 
; Ise 6$52 nam_nam = namb prenbea.nane? : $desc_block, 
3; 0276 nam_typ = namb [namb$q_type] : $desc_block 
@ a thee 
> 186 $595 ; Sblock check (2, .filb, filb, 547); 
: 187 0280 $Sblock_check (2, .namb, namb, 548); | 
; 188 0281 3 Sblock_check (2, .volb, volb, 549); ; 
; «6189 OSes Sblock-check (2, .ctx, rtiictx, 550); ! Make sure that it is what we think 
: 190 028 $logic_check (3, (.ctx [rtlictx$a_assoc_filb] EQL .filb), 206); 
: 135 oSee Slogic_check (3, (.ctx [rtlictx$a_assoc_volb] EQL .volb), 207); 
3 138 OSES ; Create the result file name in the filb 
3; 195 0288 nam_len = .nam_nam fdsc$u_ length); 
: 196 0289 typ_len = .nam_typ Cdsc$w_lengthj; 
3 197 0290 tot_len = .nam_len + .typ_len; ! Final length of both 
> 4198 0291 filB Cfilb$l_résult_name Ten] = .volb Cvolb$l_vol_ident_len] + .tot_len; ! Length of volume ident 
3; 199 O63¢ 3 Sloaic check’ (2, (.Filb Cfilb$l_result_name_léen] CEQU f7lb$s_result_name), 208); 
: 200 029 CHSCOPY (.volb Lvolb$t_vol_ident_lenJ, volb Cvolb$t_vol_identJ, ! Volume name 
: 201 0294 enam_len, .nam_nam Cdsc$a_pointer], .typ_len, .nam_typ Cdsc$a_pointer], 
3 soe 1944 0, filb$s_result_name, filb Cfilb$t_resuTt_nameJ); | 
; 204 5334 3 $trace_print_fao (‘looking for "!AF'", .filb Cfilb$l_result_name_len], filb Cfilb$t_result_name]); | 
; 506 0299 ! Need to be able to write to the volume 
3; aur 8 00 : 
; 208 01 IF NUT .volb Cvolb$v_write] 
; 209 Ba08 THEN 
: 210 303 4 BEGIN 
ae 4h 304 4 status = (IF .rtnam C(rtnam$v delete command] THEN exch$ node | tock FLse exch$_norenlock); 
: 1 05 4 $exch_signal (.status, 2, .filb Cfilb$l_result_name_lenJ, filb Cfilb$t_resulf_name]); 
; 21 BS 4 abort = true; 
3 214 07 4 END 
me it, 308 4 
: 216 309 3 ELSE 
: 27 H 0 4 BEGIN 
3  t 
: 220 3 g 4 


rornonone 


Engage directory write caching on the volume 


yo 
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EXCHNG.SRCJEXCRTINAM.B32; 1 (4). 


; 1 1$ $ exch$rtll_dircache_start (.volb); | é 
4 § 1 2 satus exch$rtacp_find_file (.ctx, filb Cfilb$t_result_name] + .volb Cvolb$l_vol_ident_lenJ, .tot_len ‘ 
: 225 0318 4 | ; 
: $ 8 }? 2 } Two kinds of files need special treatment, so filter them before we perform any action ‘ 
ie fe ’ ell 
; 8 2 Files with a file type of .SYS will not be touched unless /SYSTEM has been given ‘ 
s 0356 ipesin Ertiictx$w filetype] EQL r50 | 
: .ctx Crtlictx$w etype r50_sys : 
: 934 0399 ¢ THEN aca — : 
3 «@30 0328 BEGIN | ‘ 
; 236 0329 7 $ 
: Ste O39 f } Give a warning message the first time we pass over a .SYS file : 
: 239 0332 8 if (NOT .rtnam Crtnam$ system]) ; 
$89 0335 9 — | 
; 241 0334 8 (NOT .nosys_signalled) | : 
3 stg 0335 7 N : 
; 24 0336 8 BEGIN : 
: 244 0337 8 nosys_signalled = true; : 
: 245 0338 8 Sexch_signal (exch$_nosysact); ; 
; 246 0339 7 ND; 3 
; 2467 0340 7 -rtnam trtnam$v_q_system] ! Block has the value of the qualifier /SYSTEM ° 
: 348 0341 7 END | : 
; 249 Berg 6 ELSE ; 
; @n 03435 6 1 ! File not .SYS, file is ‘found’ : 
3 $2) pees : END) : 
3 238 O3e8 : ; And now for the second class of file. Both blocks must return true for the file to be ‘found ; 
i 255 0348 4 AND : 
; 256 0349 4 3 
3 $2p Bees ? Files with a file type of .BAD will not be touched by wildcard names ; 
; $85 O33¢ 6 (BEGIN ; 
; 260 0355 6 IF .ctx Crtlictx$w_filetype] EQL r50_bad : 
; 261 0354 6 THEN 3 
; oe 0355 7 BEGIN ; | ; 
3; 0356 7 IF .namb Cnamb$v_wild_name] ! If the found file was not explicitly named | : 
> 264 O32/ 7 . ! then skip to the next file by calling : 
3; 265 ae enamb Cnamb$v_wild_type] ! ourselves again : 
; 266 B28 ? THEN ; : 
: 267 0360 7 0 ! Wildcard, block returns false, file is not ‘found’ : 
; 268 0361 7 ELSE ; : 
; 269 9306 7 1 ! No wildcard, block returns true, file is ‘found’ : 
: 270 8 7 END : 
3; efi 6 ELSE ‘ 
: 4 5 ! File not .BAD, file is ‘*found’’ ; 
S607 : END) : 
; 0 0 68 3 ! Now the THEN clause, we have truly found this file, now work on it 

: i] 0390 4 THEN 


dD 8 
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v04-000 rtnam_common ‘ 137 808-1 386 13:59:08 EXCHNG.SRCJEXCRTNAM.B32; 1 ° (4). 
: 278 71 BEGIN 
; e799 te LOCAL : 
; 39 7 res_buf : Sbvector Cfilb$s_result_ name], ! A buffer in which to build the act 
; 1 a res_len; 
3 68 ug Create the result file name in the filb 
; 285 78 nan. a = .ctx Crtlictx$l_ex oat lend; 
; 286 0379 en = .volb Cvolb$l_vol_ident_len]~+ .nam ! Length of volume ident plu 
; 287 0380 5 state check (2, (.res_Ten A U fTlb$s ~result- een 
: 288 0381 CHSCOPY (.volb Evoibst- “vol_ident_lenJ, volb Cyolb$t a a bent, ! Volume nam 
: 289 ¢ nam_ien, ctx Crtlictx$t 3f*Bat} Tyyinate ° 
: ey ? 6, f7lb$s_result_name, res_buf 
3 4 0385 $debug_print_fao (‘file "!AF’’ exists’, PORTE, res_buf); 
Py | 
3 Be 0367 5 fiib Cfilb$v_files_found]) = true; ! Remember that we have found a file, whether or not. 
: 296 $494 3 ! If control/c has been hit, leave the loop now 
: 297 0390 5 ! 
; 298 0391 5 IF ee Cexcg$v_control_c] 
: 299 O36 5 THEN 
: 300 0393 6 BEG 
; 301 0394 6 Bexch oe trae (Sinfo_stat_copy (exch$_canceled)); 
3 4 Be02 6 pbort = true; 
_ 0396 6 PXITL 
; 304 0397 5 END” 
; 305 0398 5 ; 
: i] $244 ; Call the appropriate secondary action routine, depending on the command 
; 308 0401 5 IF _.rtnam C(rtnam$v_delete_command)] 
; 4 0402 5 THEN 
: 310 0403 5 status = rtnam_delete_action (.res_len, res_buf) 
; 11 0404 5 S 
; \¢ 0405 6 Se6in 
3 1 0406 6 = rtnam poneae action (.res_len, res_buf); 
7 314 0407 6 SELECTONE .status 0 
s 315 0408 6 SET 
3 636 0409 6 Cexch$_parseerr, exch$_norendev, exch$_badfilename] : 
s 317 0410 6 abort = true; 
3 18 0411 6 COTHERWISE) : 
; 19 be1§ 6 3 
; 320 04135 6 TES; 
3 $ pele 2 END; 
: § 415 . 
3 2 b218 5 IF .abort THEN EXITLOOP; 
: $¢ Ret 4 END; 
5 5 18 4 
F} § oh ? : If no files were found, then scream and shout 
; 8 421 4 IF NOT .filb Cfilb$v_files_ found] 
: o 4 ¢ 4 THEN 
3 0 4 BEGIN 
3 HY 424 LOCAL 
3 ¢ " 5 fao_desc : VECTOR (2, LONG); 
: 3 04 $ ' Turn the expanded name into a descriptor 
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v04-000 rtnam_common ° ~3ep-1984 9}: 33:03 EXCHNG. SRC EXERIN AM.B 63551 . pe 
3 5 4 
3 4 : * desc 9] = .filb fitgtts result anang. len]; 
: 5 re : fao_desc = filb Cfilb$t_fesult _name 
: ip r § Sexch_signal (exch$_filenotfound, 1, fao_desc); | 
; 341 434 4 END; | 
; A} 435 4 
3 4 4 § 4 !27? He ere THEN EXITLOOP; 
3 44 4 
: 302 239 l ! Rel b. cl ft 
: nam_parse cleanu ! Release namb, clean up after parse 
; 34 440 if) sabort TREN any Looe: 4 4 
s 48 0441 
: 349 ek 
; 350 44 = -Status; | 
3 51 0444 1€E | 


-TITLE EXCHSRTNAM RT-11 name manipulation routines 
-IDENT \V04-000\ 


-PSECT EXCHSRTNAM_PLIT,NOWRT,2 


-BLKB 0 H 
-LONG 17694720 3 
-ADDRESS P.AAB i 
-EXTRN EXCHSCMD_CLI_GET_INTEGER 

-EXTRN EXCHSCMD_RELATED FILE PARSE — 
-EXTRN EXCHSCMD_PARSE FILESPEC 

«EXTRN EXCHSCMD UNWIND CLI_SYNTAX 

~-EXTRN EXCHSCOPY_NAMB TO_FILB 

-EXTRN EXCHSIO_RT11_READ 

sEXTRN EXCHSIO-RT11- WRITE 

~EXTRN EXCHSAOON IT TED MOUNT 

-EXTRN EXCHSRT11_CREATE FILE 

sEXTRN EXCHSRT11_DIRCACRE_START 

-EXTRN EXCHSRT11_DIRCACHE STOP 

~EXTRN EXCHSRT11-DIRSEG POT 

-EXTRN EXCHSRTACP_CONSOCIDATE 

~EXTRN EXCHSRTACP FIND _FILE 

-EXTRN EXCHSRT11_OPEN FILE 

-EXTRN EXCHSRT11_WRITE_CLEANUP 

~-EXTRN EXCHSRT11_WRITE PREPARE 

-EXTRN EXCHSUTIL-FAO BOFFER 

-EXTRN EXCHSUTIL_FILB_ALLOCATE 

-EXTRN EXCHSUTIL~FILB_RELEASE 

-EXTRN EXCHSUTIL-FILE_ERROR 
-EXTRN EXCHSUTIL_NAMB RELEASE 

-EXTRN EXCHSUTIL_RADINSO FROM_ASCII 

-EXTRN EXCHSUTIL RASB_ALCOCATE 

~EXTRN EXCHSUTIL_RASB RELEAS 

~EXTRN EXCHSUTIL"RT11CTX_ALLOCATE 
-EXTRN EXCHSUTIL_-RTTICTX KORELEA 
-EXTRN EXCHSUTIL-VM_ALLOCAT 

-EXTRN EXCHSA_GBC, STR COPY” _Dx 
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rtnam.common ec geges “anna 197808- 1382 9:33:38 EXCHNG. SROJEXCRTNAM.B3 31 . (4) | 
EXTRN EXCHSUTIL_BLOCK_CHECK | : 
«EXTRN EXCH$_BADCOGIC, EXCHS_NODELLOCK : 
“EXTRN EXCHS$"NORENLOCK : 
SEXTRN EXCHS"NOSYSACT, EXCH$_CANCELED : 
EXTRN EXCHS$-PARSEERR, EXCHS-NORENDEV ; 
EXTRN EXCH$—BADF ILENAME | : 
SEXTRN EXCHS~F ILENOTFOUND ; 
.PSECT EXCHSRTNAM_CODE ,NOWRT,2 : 
OFFC 00000 ENTRY RTNAM COMMON, Save R2,R3,R4,R5,R6,R7,RB,RI,~; 0209 : 
SE FED8 =C 000 MOV -296(SP), SP : : 
50 000000006 EF § f 000 ADDL #56 EXCHSA_GBL, RO + 0251 ; 
0000' CF SF OOOOF PUSHAB P. + 0256 : 
1 BRR Bis ta | : 
000000006 00 02 FB 90019 CALLS ry STRSCOPY _DX ; : 
a 7C 000 CLRO. NOSYS_SIGNALCED > 0260 : 
0000v CF 9 FB 00025 18: CALLS #0, RTNAM_PARSE_NEXT_INPUT ; 0262 ; 
10 at 0 09 38 MOVL RO, STATUS : : 
’ 2 0289 BF b0086 Bho Sanctions : ; 
56 24 AB dO 000 3 2$: MOVL 6(R8), Rs + 0272 ; 
Oc AE 18 A6 DO 003 MOVL 4(R6), 12(SP) + 0275 : 
50 O0£ AE 00000050 8F C1 000 : ADDL3 #80, 12(SP), RO : ; 
SB 60 2 004 MOV (ROS, R : 
50 0c Ar 00000058 = 8F § 0048 ADDL3 #88, 12(SP), RO : 0276 
33 O35B00FA 4 5 $0084 HOVE’ #86 $5674 R2 + 0279 
gi deed Be oaosp Rove B5CF, at” : 
9000000 G EF 16 tits JSB EXCHSUTIL BLOCK CHECK : 
52 010A00F br 20 00069 MOVL #174328237 R2 + 0280 
25 - ¢ AE 06 bors Rover 13485, RO : 
000000006 EF 16 00079 JSB BXCHSUTIL BLOCK_CHECK ; 
ST actnoorg Ae BO Goer «Ra. RRS, hr j 0281 
sh 0225 BE BE OORA VEL ABA, aT ; 
000000906 EF 18 0092 JSB EXCHSUTIL BLOCK_CHECK ; 
32 oosz00rs 8 bo boos HOVE ABS19904. 2 Sess 
ced eS a : 
000000006 EF 16 OOAB JSB EXCHSUTIL_BLOCK_CHECK ; 
08 AE 6A 3 081 MOVZWL (R10), NAM_LEN : 0288 
04 «AE 69 3C¢ 00085 MOVZWL (RO), TYP_CEN 3; 0289 
6E 0 ag 04 AE C1 00089 ADDL TYP_LEN, RAM LEN. or LEN : 0290 
3A oA : A 6— C1 O08 ADDL ToT LEN, JOITR >. 58(R6) : 0291 
00000100 «BF 3A Ag D1 000CS CMPL 3 (R6), #256 : 0 9 | 
7E DO bf 38 ber ROY ZBL P08 -(SP) : 
000000006 ; DD a5 pusHe Ns BADLOGIC : | 
000000006 00 3 FB 00008 CALLS Ae LIG$STOP : | 


————— — , 


a | 
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v04-000 rtnam_common 1 ~3007 1382 9 5508 LEXCHNG. SROSEXCRINAM.B3 31 ’ (4) 
0 AE 0100 8F 3C Q00E2 38: MOVZWL #256, 32(SP) : 0293 
be UR RAR RU Bile ie : 0835, 
20 AE 00 69 Ni 65 a? Be 3 MOVCS 84 R75, FOSCR?), #0, 32(SP), a28(SP) : | 
A 1 FC GEQ. 4 $ : | 
if AE 65 A? ¢ Ff ADDL 191 (RT). g8 ($b) : 
: AE 65 A? ¢ 19 SUBL2 101(R7). 32(SP) : 
20 AE 00 4 BA 08 AE ¢ 19 MOVCS NAM_LEN, @4(R10), #0, 32(SP), a28(SP) : 
oe UP REE BEBE Abn cen, aacsn : 
26 A os AE s 8119 Suet NAM_LEN, $5 (SP? : 
20 AE 00 4 8 04 AE 2c Ole MOVCS TYPTLEN, @4(R9), #0, 32(SP), a28(SP) : 
30 48 AT BE EO 001 3 4$ BBS "5, 73(R7), 7$ + 0301 
OA 20 As 1 E1 91 D BBC #1, 32(R8). 5$ + 0304 
10 AE 000000006 f DO : ROVL #EXCHS_NODELLOCK, STATUS : 
10 AE 000000006 BF D0 $01 C 5$ MOVL § #EXCHS$_NORENLOCK, STATUS : 
4 AE OD 00144 é$ PUSHL 36(SP) : 0305 
A Ag DD 00147 PUSHL 58(R6) : 
02 oD OO14A PUSHL #2 : 
1¢ AE DD 0014C PUSHL STATUS ; 
000000006 00 04 FB O014F CALLS #4, LIBSSIGNAL : 
18 AE 01 pO 90136 MOVL #1. ABORT + 0306 
014C 31 OO15A BRW 20$ + 0301 
57 DD 0015p 7$ PUSHL R7 + 0314 
000000006 EF 01 FB 0015F CALLS #1, EXCHSRT11_DIRCACHE_START : | 
6E 0D 90166 AS PUSHL TOT_LEN : 0316) 
50 56 65 A? C1 0016 ADDL3 101TR7), R6, RO ; 
5A AO 9F 0016D PUSHAB 90(RO) : 
38 DD 09179 PUSHL R ; 
000000006 EF g FB 017 CALLS #3, EXCHSRTACP_FIND_FILE ; 
3 0 : 0179 BLBS RO, 9S ; 
0109 31 0017¢ BRW 1 ; 
7ABB OS 3E AB B1 OOI7F 9S CMPW 3s @2(R11), #31419 : 0326 
1F if 0185 BNEQ : 
1A 1c AB O38 €£ 0187 BBS #3, 28(R8), 11% : 0332 
11 146° «AE EB 0018C BLBS | NOSYS SIGNALLED, 10$ > 0334 
14 AE 1 p00 00190 MOVL #1, NOSYS_ SIGNALLED : 0337 
000000006 8F DD 00194 PUSHL #EXCHS$ NOSYSACT : 0338 
000000006 00 1 FB 19A CALLS #1, LIBSSIGNAL F 
1c AB 3 £1 OO1A1 10$: BBC é (RB), 8$ : 0 49 
OCAC 8F 3E AB 81 1A6 118: CMPW 32 (R11), #3244 : 035 
1A : 1AC BNEQ 12$ ; 
50 0c ag 0000006c «BF SC AE ADDL3 #108, 12(SP), RO > 0356 
AB 6 1 E 18 BBS (RO) ; 
51 0c AE 0000006c 8 Ci 001BB ADDL3 #168, 12¢SP), R1 : 0358 
5€ 61 2 EO 1€4 BBS (ri), ; 
08 A 46 AB DO 001C8 128: mOovL. 70(R11), NAM LEN : 0378 | 
20 AE 6 A 9 AE C1 001CD ADDL3 NAM_LEN, 101TR7), RES_LEN ; 0379 | 
00000100 ~=saBF 0 At D1 00104 CMPL RES“LEN, #256 >; 0380 | 
13 1B 0010C BLEQU ; 
7E 7D BF OA 106 MOVZBL #125, -(SP) ; | 
1 DD OO1E PUSHL #1 : | 
000000006 8F DD 0014 PUSHL #EXCH$_BADLOGIC ; | 


RT-11 name manipulation routines 
ommon 


rtnar_c 
000000006 


SA 00 69 


5A 00 54 
28 


50 03 
000000006 
18 


11 20 


0000v 
10 


oogv 

000000006 

000000006 

000000006 
18 


1¢ 28 
F8 
FC 


000009006 
0000v 


; Routine Size: 698 bytes, Routine Base: 


Be 


9 65 
ho 


1 sceeeue 


00 
AE 
AB 
$f 
4 
CF 
AE 
$$ 
4 
CF 
AE 
8F 10 
8F 10 
8F 10 
A 
0 18 
A6 
AD 3A 
AD 24 
F8 
000000006 a 
00 
CF 
03 18 
50 10 
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mM DOOOOOOOOOSOOOSOOOSOOSGOOOESOOOSOOSOSOSOOSOSOOSOSOSOOOOOOOOOOOOOSCOO 
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oor > Cr 


WWW> SA SSSOOT ITT 
> OLODOAMOLWO —2>Oo-r» —— 
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EXCHSRTNAM_COD 


“1382 93:55:38 «| Heine Osa SEReRYnan.o$9.1 


Ase, R10 


wee ays WO5cR7), #0, R10, (RY) 


R11), #0, R10, (RY) 


3A ReeL 15$ 
$ *PANCELED STATUS2 
0; #3, STATUS2 


» LIBSSIGNAL 
ABORT 


1 
#1, 32(R8), 16$ 
ES_BUF 


' Tus 

RES_BUF 

RES-LEN 

#2, RTNAM_RENAME_ACTION 
STATUS, #EXCH$_PARSEERR 
STATUS, WEXCHS_NORENDEV 
ia: #EXCHS$_BADF ILENAME 


ABORT 
ibn 19$ 


, 43(R6) 
58 (R6), Ab» 
Fao 6(S P) ech AO. “DE Ses4 
fo f IL ENOTFOUND 


L NAL 
RTNAM_ PARSE _CLEANUP 
218 


hgént, 
STATUS, RO 


RES_LEN 
#2, RTNAM_DELETE_ACTION 
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rf 1 =. Sent ROUTINE exch$rtnam_copy_boot = %SBTTL ‘exch$rtnam_copy_boot’ 
++ 


2 


VIFWN—OOONOUEW S 
ae 
NO 


IMPLICIT INPUTS: 
Command parameters and qualifiers as returned from CLI$ routines. Global environment ref'd by exch$ 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
Success or worst error encountered. 
SIDE EFFECTS: 
Block 0 and 2-5 of the target volume will be written 


44 FUNCTIONAL DESCRIPTION: 
Write a boot block on the RT=-11 volume. 
§ INPUTS: 
‘ none 
9 


we 


RRLLLLELRLLLELRRLLELER 


Sdbgtrc_prefix ('rtnam_copy_boot> '); 


090908 SIN NN NSN NIN NNO 


LOCAL 
check, 
buf : Sbvector (512*5], ! five block buffer for monitor file blocks 
status 
BIND 
rtnam = exch$a_gbl Cexcg$a_rtnam_work] : $Sref_bblock ! Pointer to work area 


Allocate and/or initialize the work area 


RRRRRRRRLRELLKLLLKRKKRELKEK 


ono 
mo 


rtnam_init (); 


8 | 
ACHR HUENEME, «Oe 


a5 
se 
: 


exch$rtnam_copy_boot -Sep-1 
93 H Get the monitor file specification. Errors will be signalled. 


hen S = rtnam_parse_next_input 


THEN 


SSLESFES 
= 
oOo 
uw 


10 # 

11 nam_len, 

\§ typ_len, 

1 tot_len 

14 $ 

15 

1 BIND 

1 filb = rtnam (rtnam$a_inp_filb] : $ref_bblock, 

13 namb = filb Cfilb$a_assoc_namb] : $ref_bblock, 

1 volb = filb Cfilb$a_assoc ~— : Sref_bblock, 

0 ctx = filb Cfilb$a_Contexf]_: Sref_bbloc 

1 nam_nam = namb [namb$q_name] : $deSc_block, 

¢ nam_typ = namb [namb$q_type] : Sdesc_block 

i eo 

5 Sblock_ check (2, .filb, filb, 638); 

$ Sblock check (2, .namb, namb, 639); 
Sblock check (2, .volb, volb, 640); 

8 Sblock-check (2, .ctx, rtlictx, 641); 

9 (3, (.ctx [rtlictx$a_assoc_filb] EQL .filb), sii}: 

Slogic.check (3, (.ctx (rtlictx$a_assoc_volb] EQL .volb), 274); 


the input. is lets us keep the syntax for COPY /BOOT compatible with RT-11. 
$dyn_str_desc_init (out_file); 


N 
BEGIN 
REGISTER 
ignore 
out volb; 
out_volB = .out_namb CnombSp. ossor .volb 
ignore = (0 NEQ (.out_namb [n 


Sahel eel ee ee eee ae et ae ek ek ek ae ee ek ek ek et et pk ek ek kk ek ed a a la 


SSIES 


440 


exch$util_namb_release (.out_namb); 
iF ,cOuCvOlb NEQ .volb 


BEGIN 

status = exch$_nocopyboot; 

$Sexch_signal (.status, 0, exch$_notsamedev) ; 
rtnam-parse cleanup (5; 
pe lune -Status; 


IF .ignore 
THEN 


WAAR POPINIPINONINUNINY 2 OOOO Oo 
BSUS USSSSSNOws cers O00 wownrrvosee PEWN S222 2 
o 
ol 
°o 
oe 
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eo 
o 
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— Sexch_signal (exch$_devonly, 1, out_file); 


Se Se Se Se Oe Se Be Ge Ge Se Ge Se Be Ge Se Se Ge Se Se Ge Se Ge Se See Se FH Se Ge Ge Ge Ge Se Oe Se Ge Se Se Se Ge Ge Se Se Ge Ge Se Ge Ge Se Ge Ge Ge Sees SH Ge ee 
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8 
$A] Ses sastolegton resins WECSegHSHs C:ghs6E Wchtdescbetha 


ee = exch$cmd_parse_filespec (ZASCID ‘OUTPUT’, 0, 0, out_file, out_namb)) 


83951 


str$copy_dx (rtnam (rtnam$q_in ut stichy_neme). ZASCID *.SYS'); ! Default file type to .SYS 


' See if the eps tonat output parameter is present. If so, verify that it refers to the same volb as 


! If volb addresses different it is not the same device 


! Make sure that it is what we think 


}: 
amb$l"namefla s] AND (namb$m_explicit_node OR namb$m_explicit_directory 
OR namb$m_explicit_name OR nambSm_explicit_type OR nambSm_explicit_version 


EXCHSRTNAM RT=-11 name manipulation routines 16-se 1 AX-11 Bliss-32 V4.0-74 P 1 
vivant exch$rtnam copy post ™ ta 4 93: $3; 8 EXCHNG. SRC EReRYNAN. OS 31 ne (6 


; ‘23 9 Create the result file name in the filb, concatenate name and type together ; 
: 461 § rn. Len = .nam_nam [dsc$w ~tengthd: . 
; 46 typ. -ten = “nen <typ (dscSw_ ~tength : 
; 46 & Len am_len + stye et Length av, =e “ 
; 5 fiUB Eta lbst “r $sult_n rtend. = wvolb CvolbSi "3 dent_l t_len Length of volume ident : 
; 465 $ Slogic check7(2, (.Fild” Cfilbst resu t_name_ wet Tbs resuit: “nene), 28955 ; 
: $6 CHSCOPY (.volb tvoibst _vol_ident_l en}. olb” et, t vol iden See Loe VY Volume name | ; 
: Lén, Snam A sc ointer len, nam, sc$a_pointer ; 
: o68 53 6. “TT LbSs _result_name, fiTb Mite ie result _name)); 3 -. : 
; 40 e $trace_print_fao (‘looking for "!AF’", .filb Cfilb$l_result_name_len], filb Cfilb$t_result_name)); | : 
; og 368 ! Need to be able to write to the volume | ; 
: 467 564 ‘ 3 
: 474 565 If NOT .volb Cvolb$v_write] H 
; 475 208 THEN 3 
3; 67 67 4 BEGIN ; 
3; 47 208 4 status = exehs _nocopyboot; ; 
; 478 P 0569 4 Sexch_signal (.status, 0, Suereine at tse (exch$_writelock), | ; 
; 479 0570 4 2, -volb Cvolb$l_ *fasnt enJ, volb Cvolb$t _vol_ ident)); : 
; 480 0571 4 END 3 
; 481 b278 4 3 
; 48 0575 4 ! We can write, now see if we can find the monitor file : 
: 48 574 4 ' 3 
Hert 74 575 3 ~—sCOELSE | : 
; 485 278 4 BEGIN F 
; 486 0577 4 3 
: 487 0578 4 IF exch$rtacp_find_file (.ctx, filb Cfilb$t_result_name] + .volb Cvolb$l_vol_ident_len], .tot_len) | : 
; 488 0579 4 THEN F 
3; 489 0580 BEGIN 3 
: 490 bees 3 
: $3) B26 Remember the status of the read-check bit, then force read-checking on ; 
: 49 0584 ; incel = ,volb Cvolb$v_read_check]; ; 
: rb 3282 volb Cvolb$v_read_chetk] ="true; : 
; rts] 0367 ; Now we can do what we came here to do, read the first 5 blocks of the monitor file : 
: 498 L 0589 5 $logic_ check (0 cepsek _buffer_blocks GEQU 5), 314); ! Need a big enough buffer for read- : 
3 ZPRINT assumption 314 verti ies during comp Lat ; 
; 4 0590 “t = exch$i 0 ct read (.volb, .ctx Crelictx$l_start_block], 5, buf (0]); 3 
: 300 23) volb reese read check] = check: ' Restore check state ‘ 
: 0 298 ; 
3 B7 aoe RETURN .status; : 
; 505 238 ; Remember the status of the write-check bit, then force write-checking on ; 
; 509 238 check = .volb Cvolb$v write _check]; 

§ 4 5 volb C[volb$v_write_chéck] ="true; 

: $10 a} ; Write the first block of the monitor file to block 0 of the volume 

: HE 0 g if NOT (status = exch$io_rtl1_write (.volb, 0, 1, buf [0))) 

: 31a é BEGIN 


a a : 7 


m 
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o 
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e 
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s 313 6 volb Cvolb$v_write_check] = .check; Restore the write-checking state 

H 18 6 RETURN .status; 

: : 3 END; 

4 13 oi9 : Write the next four blocks of the monitor file to blocks 2 to 5 of the volume | 

: §5} 61g Status = exchS$io_rtl1_write (.volb, 2, 4, buf £5129); | 

3 ¢ 1 volb Cvolb$v_write_check] = .check; ! Restore the write-checking state 

; t oie If NOT .status 

: 525 616 RETURN .status; 

; ? 713 : Log the action if requested 

; 7 ge Y iF rtnan Crtnam$v_q_log] 

: 1 P 06 $ Sexch_signal (exch$ copybest 4, .ctx Crtlictx$l pnp. fyt inane len], gf Crtlictx$t_exp_fulln 

; 5 : 06 .volb Cvolb$(_vol_ident_lenJ, volb Lvolb$t_vol_identd); 

ie Be 

3 232 Be $ : } The monitor file was not found, scream and shout 

; 337 0628 4 ELSE 

; 8 629 5 BEGIN 

; 539 0630 5 LOCAL 

; re poe : fao_desc : VECTOR C2, LONG]; 

3 206 0638 : Turn the expanded name into a descriptor 

: hi 0635 5 fao_desc fo} = .filb Cfilb$l_result_name_lend; 

; sez O63? 2 fao_desc (1) = filb Cfilb$t_result_namel; 

: 29 0638 5 $Sexch_signal (exch$_filenotfound, 1, fao_desc); 

; 548 0639 5 

; 549 0640 4 END; 

ac ieee 

: 226 ek rtnam_parse_cleanup (); ! Release namb, clean up after parse 

a By eg 

; 555 0646 5 RETURN .status; 

; 556 0647 1 END; 
| 
| 


.PSECT EXCHSRTNAM_PLIT,NOWRT,2 


53 59,153, 6 Q0008 P.AAD: ASCII \.S¥S\ ; 

01060004 990¢ PLAAC: LONG 17694724 ; | 

0000000" 0001 ADDRESS P.AA : | 

00 00 54 55 50 54 4F 00014 P.AAF: ASCII \QUTPUT\<0><0> ; | 
01060006, OO0IC P.AAE: -LONG — 17694726 : | 

00000000" 00020 ADDRESS P.AAF ; | 

| 


-EXTRN EXCHS$GQ_DYN_ STR_TEMPLATE 
-EXTRN EXCH$_NOCOPYBOOT 
-EXTRN EXCHS"NOTSAMEDEV 


04-000 exch$rtnam_copy_boot 


OFFC 00000 


SE FSD0 CE 9E 0000 
52 000000006 EF § ef $609 
0000v CF 00 FB OO00F 

ui 0000" CF oF 0014 

50 88 AE $¢ C1 tte 
50 DD 00021 

000000006 00 02 FB 00023 
0000V CF 9 FB OOO2A 

GE DO O002F 

0 6E =8 000 ‘ 

0248 31 000 

50 04 AE 24 C1 00038 
56 60 DO 0003p 
SA 18 A6 00000050 8F C1 90040 
59 18 Ab 90000038 BF C1 00049 
52 O35B00FA  8F bo 00052 
51 027E 8F 3¢ 00059 

50 56 DO 0005E 

909090006 EF 16 00061 
52 O10A00F F 00 00067 

51 027F 8F 3C 0006 

50 18 A6 DO 0007 

000000006 EF 16 0007 

57 1¢ A6 DO 0007D 

52 041B00F3 BF D0 00081 

51 0280 8F 3C 00088 

50 57 DO 0008D 

000000006 EF 16 00090 

5B 20 Ab dO 00096 

52 008200F4 8F DO OO09A 

51 0281 8F 3C OOOAl 

50 5B DO 000A6 

900000006 EF 16 OOOA9 

28 AE 000000006 EF 7D OOOAF 

se AE BR 

aE ot OboBD 

0000" CF 9F OOOBF 

000000006 EF 05 FB 003 

6E 0 »D OCA 

4F 6E £9 000CD 

50 1¢ AE D6 0000 

53 74 AO D 9004 
51 D4 00008 
OF40 8F 6C A e OODA 
g 08 SOE? 

52 21 D 0 EG 
0 DD 000E7 
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EXENSUTIL BLOCK, CHECK 
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ait RO 
EXCHSUTIL_BLOCK_CHECK 
TMPL, DESC 
OUT_NAMB 
OUT"FILE 
s(s SP) 
We EXCHSCMD_PARSE_FILESPEC 
RO, STATUS 
Atus, 4$ 
our NAMB, RO 
V6tRO), OUT_VOLB 
108(RO), #3904 
2$ 
R1 
R1, IGNORE 
RO 


0519 


Sexe yrs oss 
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» #0, 8(SP), (RB) 
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NOCOPYBOOT, STATUS 


NOTSAMEDEV 
SSIGNAL 


FILE 
H$_DEVONLY 
LIE 


IGNORE, 4$ 
{0 


BLBC 

PUSHAB OUT 

BLEQU 

MOVZWL #289, -(SP) 
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R7) 
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EXCHSRTNAM_CODE + 02BA 


647 bytes, Routine Base: 


; Routine Size: 


9 
RT=11 name manipulation routines 16-Sep-1984 9}: 1:55 ae Oi legeae V4.0-74 
4 12: E EXCRTNAM.B32;1 


exch$rtnam_delete 14-Sep-19 9:08 XCHNG. SRC 
eek: 1 SL Cont ROUTINE exch$rtnam_delete = ZSBTTL ‘exch$rtnam_delete’ 


ea 
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++ 
FUNCTIONAL DESCRIPTION: 
Entry routine for the DELETE verb for RT11 only 
INPUTS: 
none 
IMPLICIT INPUTS: 


OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
Success or worst error encountered. 
SIDE EFFECTS: 
Files may be deleted. 


eee ee ee ee eee, , | 
mm 


$dbgtrc_prefix (‘rtnam_delete> '); 
LOCAL 
rtnam : $ref_bblock ! Pointer to work area 
Allocate and/or initialize the work area 
rtnam_init 0); 
: Get pointers that we need. Have to wait until work area allocated by init call 


rtnam = .exch$a_gbl Cexcg$a_rtnam_work]; ! Pointer to work area 
rtnam [rtnam$v_delete_command] = frue; 


Do the rest from the common routine 


RETURN rtnam_common (); 
END; 


Command parameters and qualifiers as returned from CLI$ routines. Global environment ref'd by exch$ 


EXCHSRTNAM RT=-11 name manipulation routines 1b-se Sep-1984 AX-11 Bliss-32 V4.0-7 
ENEtbo0 exch$rtnam delete . gee7} ” 9}: $3; 38 EXCHNG. SRCJEXCRTNAM. 635; 31 


0000 000 ENTRY EXCHSRTNAM DELETE, Save nothing 
0000v cf 00 FB 00 CALLS #0, RTNAM_INIT 
0 000000006 EF D0 0000 MOVL EXCHSA CBC, RO 
50 18 AO 00 SO00E 24(RO); RTNAM 
20 AO 02 88 0001 BISB2 #2, 32(RTNAM) 
FAAS sCOCF 00 FB 00016 CALLS #0, RTNAM_COMMON 
04 00018 RET 


; Routine Size: 28 bytes, Routine Base: EXCHSRTNAM_CODE + 0541 


roe 


SY 


XCHSRTNAM RT-11 name manipulation routines here on -1984 AX-11 Bliss-32 V4.0-7 
04-000 rtnam_delete eect on (res_len, res_buf) 35071 3c 93: $3: 33 EXCHNG. SRCJEXCRTNAM, 83 31 
; oi¢ r 1 gL pat ROUTINE rtnam_delete_action (res_len, res_buf) = ZSBTTL ‘rtnam_delete_action (res_len, res_buf)’ 
3; 6146 7 : lee 

; 615 704 ! 

; gig f 5 FUNCTIONAL DESCRIPTION: 

3 oi8 f ? } Secondary action routine for the DELETE verb for RT11 only 

: 620 709 ' INPUTS: 

; 621 710 ! 

3; 6 ¢ 0711 ! res_len - length of result name 

3 t B18 } res_buf = address of result name 

3 ? 2 Brie : IMPLICIT INPUTS: 

; ° i BS Command parameters and qualifiers as returned from CLI$ routines. Global environment ref'd by exch$ 
: 629 0718 ' OUTPUTS: 

; 650 0719 ! 

; 6351 0720 ! none 

3 O36 0721 ! 

s 65 07 ¢ ' IMPLICIT OUTPUTS: 

: 634 07 ! 

; 635 0724 ! none 

; 636 0725 ! 

3; 637 0726 ' ROUTINE VALUE: 

; 638 0727 ! 

; 639 0728 ‘ Success or worst error encountered. 

; 640 0729 ! 

: 641 0730 ' SIDE EFFECTS: 

3 ote 0731 ! 

; 64 07 § ! Files may be deleted. 

: 644 073 leo 

; 645 Or ee 

; 646 0735 $dbgtrc_prefix (‘rtnam_delete_action> '); 

3; 647 o7 38 

; 648 073 LOCAL 

3; 649 0738 status 

; 650 158 3 

s 6351 740 

; 65 0741 2 BIND 

; 65 4544 rtnam = enete got fexcosa, rege work) 3 ret _bblock, ! Pointer to work area 
: 654 074 filb = rtnam Crtnam$a_inp_f tba Sref _bblo 

; 655 Bree volb = filb Ott tb Sa. assoc “yolb Sref fbbtock. 

: 696 745 ctx = filb Cfilb$a Context Sret block, 

s 65 0746 ent = ctx (rtlictxS$a_ent_address] = oo _bblock 

; 658 0747 3 

3; 659 0748 

; 660 749 $block_check ( -filb, di + 3263: 

; 661 750 $block_check (2, *volb, volb, 

3 666 14 $block_check ( ctx, rtlictx, 733i), ' Make sure that it is what we think it is 
; re) 0758 : Verify that it is ok to delete the existing file 

3 666 0755 get Crelictx$v_typ_protected] ' Can't delete protected files 

: 668 6789 Sexch_signal_return (exch$_notdeleted, 2, .res_len, .res_buf, exch$_rtprotect) 


EX 


EXCHSRTNAM RT=-11 name manipulation routines 16-$ 4 55 AX-11 Bliss-32 V4.0-74 Page E 
v04-000 rtnam_delete voce on (res_len, res_buf) 14-5 aets 9}: $33 08 EXCHNG. SRCJEXCRTNAM.B32; 1 the B Vv 
; 669 ? : | 
9/0 fF Looks good, delete it now | 
; 67 761 ELSE 

; oF 166 BEGIN 

: 674 76 | 
3 of? Ores $trace_print_fao (‘deleting "!AF'", .res_len, .res_buf); 

: 67 76 ' Mark the entry as deleted 

678 O76? i r 

; 4s 3768 ent (rtilent$b_type_byte] = rtilent$m_typ_empty; 

: o8) 0776 Also change the type in the context buffer, since it will be used by EXCHSRTACP_CHECK_POSITION 

; oe? 1464 ctx Crtlictx$b_type_byte] = rtllent$m_typ_empty; 

: ye +4 gree exch$rtll_dirseg_put (.volb, .ctx Crtlictx$l_seg_number)); ! Write the directory segment 

5 687 0776 IF_.rtnam Crtnam$v_q_log] 

; 688 0777 THEN 

; 689 0778 Sexch_signal (exch$_deleted, 2, .res_len, .res_buf); 

; 690 0779 

; 691 0780 END; 

: 69 0781 

; 69 O86 RETURN true; 

; 694 0783 1 END; 


-EXTRN EXCHS_RTPROTECT 


~-EXTRN EXCHS a ppt s tt 
-EXTRN EXCHS_ “DELETED 


OOFC 00000 .ENTRY RTNAM DELETE ACTION, Save R2,R3,R4,R5,R6,R7 ; 0701 
57 000000006 00 9€ 00002 MOVAB LIBSSIGNA : 
50 o00000006 Ee Ome FE RE ORO ADDL EXCHBUTIL GLOCK. — : 07% 
Ef 60 DO SO0i8 MOVL (405, R4 tk 
ot) 24 AG 1c (C1 00018 ADDL ae » 36(R4), RS > 0744 
50 26 AG 20 ¢1 00020 ADDLS # 6(R4), RO + 0745 
53 60 DO 00025 MOVL (ROS R3 : 0746 
ay ossegaes BO BRESE BBN FRETS. me 
50 24 AG OD 09 4 HOVE 36(R4), RO : 
6 1 8 JSB EX HUF IL BLOCK CHECK ; 
52 041B00F3 BF p 003A OVL a6 87 579; Re : 0750 
21 0228 «BF 3C 00041 MOV2WL #555, R1 : 
0 65 00 0046 OVL (R5); RO : 
6 16 4 JSB EX Hur BLOCK CHECK ; 
52 00820064 BF 90 0004 OVL  #8519924,-R ; 0751, 
3H a5 88885 ARLEN Gh be] 
66 1 A JSB XCH$UTIL_BLOCK_CHECK : 
ait oe Sated 
52 900000006 BF D0 00061 MOVL WEXCHS_NOTDELETED, TEMP : 0757. 
00000006 8F DD 00068 PUSHL #EXCHS$"RTPROTECT : 


RT-11 name manipulation routines 18-se Sep-1984 AX-11 Bliss-32 V4.0- 
rtnam_delete woct ion (res_len, res_buf) 1 ~30 71382 9}: $3; 8 EXCHNG. SRCJEXCRTNAM. O35. 31 
7E 04 aC 70 § mMOVa a LEN, (SP) 
DD 0007 PUSHE 
7 43 18 CALLS ie LIBSSIGNAL 
0 B 7 MOVL EMP, RO 
4 7c RET 
50 7E A 3 7D 1$ MOVL 126(R3), RO 
01 AQ 0 1 MOVE ' » 1¢R6) 
9 OA 9 085 MOVB 57(R3) 
ce a 
000000006 14 02 4 33 CALLS +f EXCHS$RT11_DIRSEG_PUT 
F 1C AG 5 9 BLBC € Ne 2$ 
7E 04 as D 00099 MOVQ S_LEN, *(SP) 
DD 0009D PUSHL 
00000000G 8F oD 444 PUSHL oe xcHs peveree 
67 4 FB OOOAS CALLS LIBSSIGNA 
50 01 DO OO0A8 2$: MOVL nk RO 
04 OO0AB RET 
; Routine Size: 172 bytes, Routine Base: EXCHSRTNAM_CODE + 055D 


! The COPY /BOOT command does not support /LOG or /SYSTEM. Set up a handler to do a RETURN when we would 
normally get the MSGS$_SYNTAX error. 


0090900 


ENABLE 
exch$cmd_unwind_cli_syntax; | 
| 
| 


: If our pointer is null, we need to allocate and initialize the work area 


bette ett tt tte 
o SSARFUNS SSRN RUIN —COWDNONRWN—OS 


if .rtnam EQL 0 
BEGIN 
Get the right sized chunk of memory 


H 9 
E RT-11 name manipulation routines 16-Sep-1984 01:21:55 AX-11 Bliss-32 v4.0-74 Page 24) 
vo4 ethan init 1er8eb 138s 93:50:08 LEXcHnc SRecEKcRYNAN. 03551 aa St 
; ¢ 7 1 GLOBAL ROUTINE rtmam_init : NOVALUE = XSBTTL 'rtnam_init' 
$ 785 BEGIN 
3; 6 f 'o¢ 
. 1 
3 796 f 3 FUNCTIONAL DESCRIPTION: | 
3 19 Le: Common init routine for the rtnam verbs 
> 704 79 i INPUTS: | 
; 705 79 ! 
: re 794 ! none 
3 4 795 ! 
; 708 a ' IMPLICIT INPUTS: 
; 709 79 ! 
; oi? 1443 Command parameters and qualifiers as returned from CLI$ routines. Global environment ref'd by exch$ 
: ar; pa00 ' OUTPUTS: 
: 71 801 ! 
: 716 080 ! none 
: 715 080 ! 
; rig 0804 ! IMPLICIT OUTPUTS: 
3; 71 0805 ! 
: 718 08 ! none 
; 719 080 ! 
; 720 0808 ' ROUTINE VALUE: 
; 721 080 ! 
ee § 081 ! none 
s ve 081 ! 
3; 726 081 ' SIDE EFFECTS: 
3: 725 081 ! 
s 726 081 ‘ Files may be created. 
: 727 081 len 
; 728 081 
3 4 9 +t $dbgtrc_prefix ('rtnam_init> '); 
s 731 081 LOCAL 
; a3 08 status 
3 @ Be : 
. 8 
. . 7a 08 BIND 
3 a) oe rtnam = exch$a_gbl Cexcg$a_rtnam_work] : $Sref_bblock ! Pointer to work area 
? 0 : 


SOOSCOOCOOCOSOOSooOO 


-EXTRN STRSFREE1_DX, CLISPRESENT 


9 
EXCHSRTNAM RT=11 name manipulation routines tose 1984 01:21:5 AX-11 Bliss-32 V4.0-74 Page 25) 
§5ee000 rtnaainit 1 8eb-19ke 13:39:08 — FeXcune’Sredexcrtnam.o39. 1 a 83 
; f ; 1 rtnam = exch$util_vm_allocate (exchblk$s_rtnam); 
; 135 § ! Set the ident fields 
; , ; 5 Sblock_init (.rtnam, rtnam); 
; 19 : ! Set the dynamic strings 
: 761 rk Sdyn_str_desc_init (rtnam (rtnam$q_input_ filename); 
: 76 50 Sdyn-str_desc_init (rtnam (rtnam$q_output_filename)); 
; re? 51 Sdyn_str_desc_init (rtnam rtnam$q_input_sticky_named); 
: 765 3g END 
; @ 54 ELSE 
; 0855 BEGIN 
: 768 8 3$ 
: f , +t } Free the dynamic strings and the Chicago 7 
: 771 0889 str$freel_dx (rtnam ([rtnam$q_input_filename]); 
ot er 0860 str$freel_dx (rtnam (rtnam$q_output_filename)); 
3 ak 0862 str$freel_dx (rtnam [rtnam$q_input_sticky_named); 
: 775 END; 
s 2 te 
3 Ads Oaee : Get some confidence that our work area is valid 
: 779 086 $block_check (2, .rtnam, rtnam, 541); 
: 780 0868 
; re tH Set the last part of the block to nulls 
: Ay + a CHSFILL (0, rtnam$k_end_zero - rtnam$k_start_zero, .rtnam + rtnam$k_start_zero); 
; ee? O88 Get the global boolean qualifiers common to all (COPY /BOOT, DELETE, RENAME) commands 
; 78? Bae rtnam Crtnam$v_q_log) = cli$present (ZASCID ‘LOG'); ! global 
; 789 087 ! Get global booleans common to Delete and Rename only, COPY /BOOT will unwind, so nothing that COPY/BOOT ne 
5 a pare : can be past this point 
: a4 0880 rtnam Crenensv_g_systen) = cli$present (ZASCID ‘SYSTEM'); ! global 
; 195 0881 '‘\ rtnam Crtnam$v_q_contirm] = cli$present (ZASCID 'CONFIRM'S; i global 
: 795 088 RETURN; 
: 796 0884 END; 
.PSECT EXCHSRTNAM_PLIT,NOWRT,2 
00 47 4F & 0024 P.AAH: .ASCII \406\<02 : 
10E000 0028 P.AAG: .LONG 17694723 ; 
0000000' 4 ADDRESS P.AAH 3 
00 00 4D 45 54 53 050 P.AAJ: .ASCII SS TS TEN) <O><0> : 
4 50008 38 P.AAI: .LONG 17694726 3 
00 . C -ADDRESS P.AAJ 3 


EXCHSRTNAM RT=11 name manipulation routi 18-50 =| AX-11 iss- 4.0-74 
v04-000 =O + Rema apene Spa? cn ene ~3op- 188 93:35:da | HNcunc SReSexcrtnam.o39;1 Page $8 


«PSECT EXCHSRTNAM_CODE ,NOWRT,2 


O1FC 000 .ENTRY RTNAM INIT 8 e R2,R3,R4,R5,R6,R7,RB : 0784 
Sue ge Rte SUT, ; 
52 000000006 EF is it cj 19 ADDL S #24, Beli R2 + 0824 
62 os 1D TSTL (Rd) + 0835 
3 OS b0021 orem #82 : 0841 
000000006 EF i $8 3 CALLS ae EXCHSUTIL VM_ALLOCATE : 
08 A 4 ; 02D MOVW BSS, 8(RO) + 0845 
A A E 0 1 MNEGB #14, 10(RO) : 
5 62 D 5 MOVL (R25, RO + 0849 
53 000000006 gf DO 000 MOVL TMPL. R : 
$0 3D 99 F MOVL 3, (RO) : 
1 000000006 gf D 9 4g MOVL TMPL+4, R1 : 
06 A 1 DO 0004 VL. RI 4(R9) : 
50 6 O¢ C1 0004D ADDL3 #12, (R2), RO + 0850 
6 00 0051 VL —sR3,_ (RO) : 
046 A 51 D0 00054 VL. RY 4 (RO) : 
50 6 14 C1 00058 ADDL3 #26, (R2), RO + 0851 
6 53 D0 0005¢ VL —R3, CRO) : 
04 A0 51 DO 0005F MOVL  R1. 4(RO) : 
13 11 0063 BRB 2$ + 0835 
62 DD 00065 1$: PUSHL  (R2) : 0859 
67 01 FB 0067 CALLS #1 STRSFREE| Dx. : 
7E 62 OC C1 0006A ADDL n3, (SP) + 0860 
6 01 FB D006E CALLS #1 sth Sree! Dx F 
7E 62 14 C1 000 ADDL 4 6, (SP) : 0861 
$ 01 F 00075 CALLS “sth tees a : 
6 2 D0 00078 2s: MOVL tR », Rb + 0867 
52 003400F2 BF ; 007 VL #3406114, R2 : 
51 021D 8F 3C 0008 MOVZWL : 
50 6 dO 0008 MOVL R6, RO : 
000000006 cf 16 0008A JSB EXCHSUTIL 8 OCK_CHECK : 
18 00 6E vs 00 2c 0009 MOVCS #0, (SP),"#0, #24, 28(R6) : 0871 
0000" CF 9F 00097 PUSHAB  P.AA : 0875 
1 FB 0 9B CALLS #i, c ISPRESENT ; 
1c M6 01 0 F 9€ INSV nO: , 28(R6) ; 
0000" CF 9F OOOA4 PUSHAB + 0880 
68 1 FB As CALLS ae ¢ scene NT ; 
10 AG 91 0 F AB INSV 0; #3, #1, 28(R6) ; 
4 00081 RET > 0884 
00 B2 3$: «WORD Save nothing ; 0824 
7E D4 CLRL 0s = (SP) : 
7E oo aE 9D 0088 mover ACAP), : 
000000006 EF 0 FB BC CALLS #3, becHSEMD _UNWIND_CLI_SYNTAX ; 


; Routine Size: 196 bytes, Routine Base: EXCHSRTNAM_CODE + 0609 
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rtnam_parse_cleanup 


-Sep-1 EXCHNG.SRCJEXCRTNAM.B 


7 2 3 ROUTINE rtnam_parse_cleanup : NOVALUE = %SBTTL ‘rtnam_parse_cleanup' 
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RoPononononononopoforny 


++ 
FUNCTIONAL DESCRIPTION: 
Clean up after a successful parse. Release the namb and other structures. 
INPUTS: 
none 
IMPLICIT INPUTS: 
rtnam$a_inp_namb field in rtnam work area 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
none 


$dbgtrc_prefix (‘rtnam_parse_cleanup> '); 


BIND 
rtnam = — Cexcg$a_rtnam_work]) : Sref_bblock ! Pointer to work area 
filb = rtnam Crtnam$a_inp_Tilb) : S$ref_bBlock, ' Filb for the input 
namb = filb Ft i tbge.assoc need, : $Sref_bblock, ! Namb for the input 
volb = filb Cfilb$a_assoc yotbs : $Sref_bblock, ! Volb for the input 
ctx = filb Cfilb$a_Ctontext : Sref_bblock ! Volume specific context 
Sdebug_print tit C‘entry'); 
Sblock-check"(2, .filb, filb, 543); 
Sblock_check (2, .namb, namb, 544); 
$block_check (2, .volb, volb, 545); 
Sblock"check (2, .ctx, rtlictx, 546); 


4 
32;1 


RT=-11 name manipulation routines 16-Sep-1984 AX-71 Bliss-32 V4.0-7 P Ex 
rtnam_parse_ cleonup 1$-se0-1984 9}: $3 8 EXCHNG. SRC EXERINAM.B3 31 age 498 ve 


: 8 3 | If we have been able to write, then clean things up 
: 849 935 if .volb Cvolb$v_write] 

; 850 +) THEN 

: 23 2 BEGIN 

4 38 0339 Compress unnecessary entries from the directory. 0 means not to restructure the directory. 
3 38 a3 exch$rtacp_consolidate (.volb, 0); 

5 2 oh } Turn caching off and flush any modified directory segments 
; 25 O33 exch$rt11_dircache_stop (.volb); 

: Bet 094 END 

: B6¢ 0948 : 

; 86 0949 ! Release the context block 

; 864 0950 ! 

; 865 095 exch$util_rtiictx_release (.ctx); 

; 866 095 

; 867 095 ' Release the input namb 

; 868 095 ! 

; 869 095 

; 870 095 

3; Sri 095 ! Release the input filb 

3 a76 095 ! 

3 SF 095 exch$util_filb_release (.filb); 

: 874 0960 

: 875 0961 2 RETURN; 

; 876 0962 1 END; 


00FC 00000 .ENTRY RTNAM_PARSE CI EANUP, Save R2,R3,R4,R5,R6,R7 ; 0885 

57 000000006 EF 9€ 00002 MOV EXCHSOTIL ght ocx. CHECK, R7 ; 
50 000000006 EF 18 ¢1 00009 ADDL Wes, EXCHSA_GBL> RO : 0921 
54 60 24 €1 000 ADDL3 #36. (RO), R4 : 092 
+t 64 18 €1 000 ADDL3 #24. (RG). R6 : 092 
53 64 1¢ ¢€1 000 ADDL3 # g. (R4), R3 > 0924 
55 64 0 ¢1 000 ADDL3 #32. (R4). RS + 0925 
52 O35B00FA 8F Bo 00 MOVL 436695674, R2 + 0929 

21 O21F 8F ¢ 00 MOVZ2WL #543, R1 : 

0 64 D MOVL (R4). RO : 

7 16 000 JSB EXcHguT | BLOCK. CHECK ; 
F p0 0 MOVL #17432823, R2 : 0930 

F 3¢ 000 MOVZWL #544, R ; 

66 dO 6 MOVL  (R6). RO ; 

67 1 JSB EXCHS$UTIL_EILOCK_CHECK : 
3D MOVL (8) R : 0931 

F p MOVL @ 8785 9, R2 ; 

gz. MOVZWL #545, R1 ; 

; »? TSBe ey io |_BLOCK_CHECK ; 
fr 08 MOVL Best 9¥oL. RD . : 0932 

F 3C 000 MOVZWL #546, a1 : 


} 
4 : 
é exch$util_namb_release (.namb); 
8 
9 

| 


; Routine Size: 
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000000006 
000000006 
000000006 
000000006 
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#2, EXCHSRTACP_CONSOLIDATE 
EXCHSRT11_DIRCACHE_STOP 
#1, EXCHSUTIL_RT11CTX_RELEASE 
#1, EXCHSUTIL_NAMB_RELEASE 
#1, EXCHSUTIL_FILB_RELEASE 
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++ 


FUNCTIONAL DESCRIPTION: 


INPUTS: 
none 
IMPLICIT INPUTS: 


OUTPUTS: 

none 
IMPLICIT OUTPUTS: 

Command work area receives parse info 
ROUTINE VALUE: 

Success or worst error encountered. 
SIDE EFFECTS: 


none 


$dbgtrc_prefix ('rtnam_parse_next_input> '); 


L 

ctx : $ref_bblock, 
volb : $ref_bblock, 
format, 

status 


BIND 


AX-11 Bliss-32 V4.0-74 


14-Sep-19 EXCHNG.SRCJEXCRTINAM.B32; 1 


¢4 1 SSA. ROUTINE rtnam_parse_next_input = ZSBITL ‘rtnam_parse_next_input' 


| 


Fetch the next input parameter. Parse the filename and initialize the input file work region. 


Command qualifier value as returned from CLI$xxx routines. rtnam command work area. 


! Pointer to work area 


rtnam = exch$a_gbl Cexcg$a_rtnam work] : Sref_ bbl 
inp_filb = rtnam Crtnam$a_inp_filb] : $ref_bBblo 
inp_namb = rtnam [rtnam$a_inp_namb] : $ref_bblock 


Sblock_check (2, .rtnam, rtnam, 542); 
: Fetch the filename and a pointer to a namb 


! Namb for the input 


if NOT (status = exch$cmd_parse_filespec (ZASCID ‘INPUT' 
rtnam Crtnam$q_inpu 


THEN 
BEGIN 


rtnam Crinan$q_ input sticky_naned, 0, 


- niciecnsesngpeltlageidpaimadniieaiinimpiasiinatat a 
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rtnam_parse_next_input b-Sep- 984 12:29:08 EXCHNG. SRei EXCRTNAM.B32;1 (1 


IF .status NEQ 0 
THEN 


Sexch_signal (exch$_parseerr, 1, rtnam Crtnam$q_ input_filename], .status); 
RETURN »status; ! No more files to rtnam, or error in parse 


Strace_print_tao (‘input parameter is ‘‘!AS''', rtnam Crtnam$q_input_filename]); 
If if the input potentially describes multiple files, then set the bit 
iF «,inpanamb Cnamb$v_more_files] OR .inp_namb Cnamb$v_wildcard] 

rtnam (rtnam$v_multiple_files] = true; 
If a foreign device is not mounted, then perform an implied mount 
IF yp’: inp=namb Cnamb$a_assoc_volb] EQL 0) 
(BEGIN 
BIND 

dev = inp_namb Cnamb$l_ pebdevs 3 $bblock; 

geey Cdev$v_for] OR (NOT (.dev Cdev$v _mnt))) 


IAN AAANWIIWiropororororororonerny 
ONAUVESAR ("OO ONOUSWN—O 


AND 
(C. inp_namb Cnamb$b_devclass] EQL dc$_disk) 


(.inp_namb Cnamb$b_devclass] EQL dc$_tape)) 
BEGIN 
Bog (status = exch$moun_implied_mount (.inp_namb)) 


THEN 


BEGIN 
exch$util_namb_release (.inp_namb); 
RET URN -Status; 


OOOCOCCOOCOCOCSSSSOOSOSOSOSOOOOOCOOOCOOOOOOOOOOOOOOO 


HPPA AAA AAI BEEP EEE EW 


ed ed ed ee ae ee ce ee ce ee ee ee ce ld ee ee ec ee ee ce ce ee ee ee ee ee ee ce el ci el el ce ed ee ee ee cl ee ee el el el 
NOUS WN —OOONA UE WN" OOONOUSWN OW” 


BBB HB BF MAAMGIPINIDININPINPININPINININI AE & EWE ANWAR BE 
“ Mm 
m 0 


END; 
volb = a2 namb C[namb$a_assoc_volb]; 
IF -votb a0 ! If the volb is there, then the interesting format | 
format = .volb Cvolb$b_vol_format]) ! is that of the volb. Otherwise, it | 
06 format = .inp_namb Cnamb$b_vol_format]; ! is that of the namb. 
08 CASE .format FROM volb$k_vfmt_lobound TO volb$Sk_vfmt_hibound OF | 
06 Cvolb$k_vfmt_files11) : | 
06 BEGIN 
Boe LOCAL 
53 errstat; 
070 IF .inp_namb Cnamb$v_explicit_node] 
071 THEN 
O78 BEGIN 
07 errstat = oxchs _noremote; ‘ 
are Sexch_signal (.é@rrstat, 1, rtnam Crtnam$q_input_filename)); 
076 ELSE 


10 
EXCHSRTNAM RT=-11 name manipulation routines 1b-Se 1984 01:21:55 AX-11 Bliss-32 V4.0-74 Page 32. 
v04-000 rtnam_parse_next_input 10-808= 138 12:39:08 EXCHNG.SRCJEXCRTNAM.B32;1 i (12) | 
: 992 1077 4 BEGIN | 
; 99 1 4 4 errstat = exch$_opnotperf11; | 
; 938 1079 4 Sexch_signal (.érrstat, 1, inp_namb Cnamb$q_device)); 
3 238 1081 exch$util_namb release (.inp_namb); ! Release the bad namb 
; 99 Ioee RETURN .errstat; 
; 998 108 END; 
; .999 1084 
: 1000 1085 Cvolb$k_vfmt_dos11] : 
: 1001 1086 BEGIN 
H 1008 1087 LOCAL 
; 100 Hi $3 errstat; 
; 1004 1089 errstat = exch$_opnotperdos; 
3 1005 1090 $exch_signal (.érrstat, 1, inp_namb Cnamb$q_device)); 
; 1006 1091 exch$util_namb_release (.inp_namb) ; ! Release the bad namb 
3 1007 1999 3 RETURN .errstat; 
3; 1008 109 § END; 
; 1009 1094 
; 1010 1095 § Cvolb$k_vfmt_rt11] : 
; 1011 1096 § ! These we can do 
: a 1097 2 
3 101 1098 '\ CvolbSk_vfmt_rtmt] : 
; 1014 1099 t\ BEGIN 
3; 1015 1100 '\ LOCAL 
: 1016 1101 2 !\ errstat; 
3; 1017 1108 § '\ errstat = exch$_opnotperrtmt; 
; 1018 110 * $exch_signal (.errstat, 1, inp_namb Cnamb$q_device]); 
3; 1019 1104 2 !\ exch$util_namb_release (. inp_namb) ; ' Release the bad namb 
: 1020 1105 1\ RETURN .errstat; 
; 1021 1106 \ END; 
: 1s6 1107 ; 
3; 102 1108 CINRANGE, OUTRANGE) : 
3: 1024 1109 Slogic_check (0, (false), 238); 
: 1025 1110 TES; 
: 1026 1111 
3 1056 a 2 $logic_check (3, (.volb NEQ 0), 119); | 
3 34 1iN3 Now copy the full name to the default name for proper stickiness | 
; 193) 1118 str$copy_dx (rtnam [rtnam$q_input_sticky_name], inp_namb Cnamb$q_fullname)); 
; 1038 BY : Allocate a file block to contain the input information 
3 \Oee 1150 inp _filb = exch$util filb allocate (); 
3 See i} 1 exch$copy_namb_to_filb (.7np_namb, .inp_filb); ! Copy from the namb to the filb 
; 3 1138 | Put an RT-11 context block on the filb 
3; 1040 1158 ctx = exch$util_rtlictx_allocate (.volb, .inp_filb); 
: 1041 11 $ inp_filb Cfilb$a_context] = .ctx; 
: Mok 11 
3; 104 1128 RETURN .status; 
3: 1044 1129 END; 


~PSECT EXCHSRTNAM_PLIT,NOWRT,2 
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EXCHSRTNAM 
v04-000 rtnam_parse_next_input 


00 00 00 54 55 50 


25 000000006 
57 000000006 
50 000000006 55 
2 003400F 2 
24 O21E 
000000006 
28 
14 
0000" 
00000000G_ EF 
56 
13 
0048 
000000006 
67 
52 28 
6D 
04 6C 
20 «AS 
74 
05 68 
23 6A Ae 
01 78 
02 78 
000000006 gE 
6 
08 
68 
55 7%4 
50 58 
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O—FWwTOMO TNO — 0— OMM—F OM $$ O09 - NO OD -MonOOoll O-TWwWoJ 
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>>> 
aro 


10 
aSep-i9ee 12:99:08 


SE 49 pone P.AAL: 
OF 9F 0088 0048 P.AAK: 
0000000° 0004C 


ASCII 
- LONG 


PEMEYI 50> <0><0> 
17694725 


»ADDRESS P.AAL 
EXCHS$_NOREMOTE 


-EXTRN 
~EXTRN 


-PSECT 
~ENTRY 


EXCH$~OPNOTPERDO 


AX=-11 BLi 


EXCHNG.SRC 


store V4.0-74 
EXCRTNAM.B32;1 


EXCHS_OPNOTPERF 11 


EXCHSRTNAM_CODE ,NOWRT,2 


RTNAM_PARSE_NEXT_INPUT, Save R2,R3,R4,R5,- 


EXCHSUTIL_NAMB_RELEASE, R8 
L1BSSIGNA , R? 

#24 EXCHSA_GBL, RO 

(ROS, R 


RO 


#3408114, R2 
, RI 


1$ 


#°M<R3,R6> 
a 


#EXCHS PARSEERR 
» LIBSSIGNAL 


# 


4 


$ 


UTIL_BLOCK_CHECK 


XCHSCMD_PARSE _F ILESPEC 
ATUS 


EXCHSMOUN_IMPLIED_MOUNT 
TATUS 


EXCHSUTIL_NAMB_RELEASE 


(R2) 


- VOLB 


(VOLB), FORMAT 


Pete Se Se Se Se Ge Se Ge Se Se Se Se Ge Ge Ge Se Ge Ge Ge Se Se Se Ge Ge Se Se Se Se Ge Ge Se Be Se Fe Fe Se Fe Se Se Se Ge Fe Fe Fe Se Se 
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v04-000 rtnam_parse_ nant a 14-Sep O-1984 t 9: $9; :08 EXCHNG. SRCJEXCRTNAM.B3 31 . ad 
046 11 AA BRB 9 ; 
03 60 a 5 fF 00080 98; PASE’ FORMAT. Woon as bee 
0050 0010 0036 000 B4 10$:  .WORD 11$-1 %.. : 
14$-10$.- : 
1¢8-1 $,- : 
1 $1 $ : 
7E EE BF 9A 0O0BE 118: MOVZBL #238, ~(SP) ; 1109) 
1 pd 000C PUSHL # : 
000000006 8F DD 000C PUSHL # XCHS BADLOGIC ; 
000000006 00 ; Fe its CALLS i P LIBS : 
0B 6C A2 6 €1 Sb 12$: BBC 6, 108(R2), 13$ : 1070 
54 000000006 1 8F DO 000D6 MOVL ReCHS NOREMOTE, ERRSTAT + 1073 
; DD 000DD PUSHL : 1074 
13 11 000DF BRB 16$ : 
54 000000006 af DO OOOE1 13$:  MOVL = #EXCHS_OPNOTPERF11, ERRSTAT : 1078 
7 11 OO0E8 BRB : 1079 
54 000000006 8F DO OOOEA 14$ MOVL HEXCHS _OPNOTPERDOS, ERRSTAT : 1089 
40 A2 99F OOOF1 15$ PUSHAB 64 R2) + 1090 
01 DD OO0F4 168 PUSHL : 
54 DD 900F6 PUSHL ERAS F 
67 03 FB OOOF CALLS #3, [TBSSIGNAL : 
52 DD O00FB PUSHL + 1091 
68 01 FB OO00FD CALLS EXCHSUTIL _NAMB_RELEASE ; 
50 54 00 90100 MOVL ERRSTA RO + 1092 
04 0010 RET : 
18 2 9F 00104 17$:  PUSHAB 4 (RQ) + 1116 
14 AS OF 00107 PUSHAB 20(R3) : 
000000006 00 02 FB OO10A CALLS #2, STRSCOPY : 
000000006 _ EF 00 FB 00111 CALLS ; XCHSUTIC. FILB _ALLOCATE + 1120 
24 «AS 50 00 00118 MOVL RO, 36(R3) : 
53 24 A3 00 0011C MOVL  36(R3), R3 > 1121 
0C BB 00120 PUSHR #*M<R2.R3> : 
000000006 _ EF 0¢ FB 00122 CALLS 2. EXCHSCOPY_NAMB_TO_FILB : 
53 DD 00129 PUSHL R : 1125 
55 DD 00128 PUSHL OLB F 
000000006 _ EF 08 FB 00120 CALLS #2, EXCHSUTIL_RT11CTX_ALLOCATE : 
20 AS 50 pO 00134 MOVL CTX, 32(R3) : 1126 
50 56 D0 00138 18$: MOVL STATUS, RO : 1128 
04 00138 RET : 1129 
; Routine Size: 316 bytes, Routine Base: EXCHSRTNAM_CODE + 076A 
| 
} 
| 
| 
| 
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ot 


3 3 § 11 9 1 GLOBAL ROUTINE exch$rtnam_rename = ZSBTTL ‘exch$rtnam_rename' 
3 3 11 BEGIN 
13 1068 11 § +4 

; 1049 11 : 

: 1981 3 2 : FUNCTIONAL DESCRIPTION: 

Ps ° | 

3 1 11 : Entry routine for the RENAME verb for RT11 onl 

: 1038 139 $i y | 

3; 1054 1138 ! INPUTS: 

; 1055 1139 : 

; 1056 1140 : none 

; ee 1141 ' 

3 1938 1308 } IMPLICIT INPUTS: 

3 H's ee Command parameters and qualifiers as returned from CLI$ routines. Global environment ref'd by exch$ 

; 1006 1146 ' OUTPUTS: 

; 106 1147 } 

: 1064 1148 : none 

; 1065 1149 : 

3; 1066 1150 ! IMPLICIT OUTPUTS: 

3: 1067 1151 : 

; 1068 1136 : none 

: 1069 115 ! 

: 1070 1154 ! ROUTINE VALUE: 

: 1071 1155 : 

3 1078 1156 ; Success or worst error encountered. 

: 107 1157 : 

3: 1074 1158 ! SIDE EFFECTS: 

: 1075 1159 2! 

3; 1076 1160 : Files may be renamed. 

; 1077 1161 !<< 

; 1078 1166 

3; 1079 116 $dbgtrc_prefix (‘rtnam_rename> '); 

; 1080 1164 

; 1081 1165 LOCAL 

; He 1166 § protect, 

: 108 1167 rtnam : $ref_bblock, ! pointer to work area 

3: 1084 1168 status 

; 1085 1169 3° 

3 1986 1170 

: 108 1171 ' Allocate and/or initialize the work area 

; 1088 1178 i 

; 1089 117 rtnam_init (); 

3 1090 1174 

; a4 1122 | Get pointers that we need. Have to wait until work area allocated by init call 

3 1098 1199 rtnam = .exch$a_gbl Cexcg$a_rtnam_work); ! Pointer to work area 

: 1998 1178 rtnam (rtnam$v_rename_command) = true; 

; 53 Ys : For /PROTECT, we need to know whether it was specified or defaulted 

; 1098 1182 protect = cli$present (ZASCID ‘PROTECT'); : 

3; 1099 118 rtnam (rtnam$v_q_protect] F = protect; , : Sieply value of low bit 

; 1100 1184 4 rtnam (rtnam$v_q_protect_explicit] = nS -propect EQL cli$_present) ' Either /PROTECT or /NOPROT 

3; 1101 1132 § R (.protect EQL cli$_negated)); ! must be there 

3: 1102 1186 
} 


<m 
aN 
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EXCHSRTNAM RT=11 name manipulation routines 1-5e 1984 01:21:55 AX-11 Bliss-32 V4.0-74 © 

v04-000 exch$rtnam_rename 1228687138 9) 350308 LEXCHNG. SRCJEXCRINAN.B3 31 290 38 

; 1195 1} H Do the rest from the common routine 

; He 1} 5 status = rtnam_common (); | 

: 11 1191 2 IF _.rtnam Crtnam$a_out_namb) NEQ 

1108 1138 loll nam (rtnam$a_out_nam EQ 0 

: t+ 4 i S exch$util_namb_release (.rtnam C(rtnam$a_out_namb]); ! Return the namb to the available p 

: 1111 1195 2 RETURN .status; 

3 1112 1196 END; 
| 
| 

.PSECT EXCHSRTNAM_PLIT,NOWRT,2 
00 54 43 45 54 4F 52 50 00050 P.AAN: .ASCII \PROTEST\<O> ; 
010E0007 00058 P.AAM: .LONG 17694727 ; 
00000000" 0005¢ «ADDRESS P.AAN : 
-EXTRN CLIS_PRESENT, CLIS_NEGATED 
.PSECT EXCHSRTNAM_CODE ,NOWRT,2 
001C 60008 -ENTRY EXCHSRTNAM_RENAME, Save R2,R3,R4 : 1130 
FDSC cf 00 FB 00 O¢ CALLS #0, RTNAM_INIT 3 1173 
0 000000006 EF D0 0000 MOVL EXCHSA GBC. RO : 1177 
52 18 ad 00 BoE MOVL hi? RTNAM : 
20 A 04 88 0001 BISB2 #4, 32¢RTNAM) : 1178 
0000" CF 9F 00016 PUSHAB P.AAM : 1182 
000000006 00 9} FB QOO1A CALLS #1, CLISPRESENT 3 
1c =—A2 01 01 9 F B98 1 INSV PROTECT, #1, #1, 28(RTNAM) 7 1183 
53 04 00027 CLRL : 1184 
00000000G  8F 50 D1 00029 CMPL PROTECT, #CLIS_PRESENT 3 
O¢ 12 000 : BNEQ 1$ 3 
D6 000 INCL R3 : 
51 D4 00034 18 CLRL R1 3 1185 
00000000G_ 8F 50 Di 4 CMPL PROTECT, #CLIS_NEGATED : 
2 12 00030 BNEQ es : 
1 3 0003F INCL : 
54 51 3 0041 2$ BISB3 R3, R1, R4 : 
1€ 8 =—A2 02 4 FO 00045 INSV RG, #2, #1, 28(RTNAM) : 
F70A_ CF 90 F Bee CALLS #0, RTNAM_COMMON 3: 1189 
53 8 DO 00 6 MOVL RO, STATUS : 
30 A p 9 TSTL  48(RTNAM) : 1191 
OA 8 BEQL 3 : 
30 A2 00 PUSHL 48(RTNAM) : 1193) 
000000006 fF 9 fe 0 CALLS #1, EXCHSUTIL_NAMB_RELEASE : 
0 3 3 0062 3$ MOVL STATUS, RO : 1195 
4 0006 RET : 1196 
; Routine Size: 102 bytes, Routine Base: EXCHSRTNAM_CODE + 08A6 
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rtnam_rename_action (res_len, res_buf) 14-Sep-19 4 93:50:08 LEXCHNG. SRC EXCRTNAM.B32;1 ae 5 


1197 1 Som ROUTINE rtnam_rename_action (res_len, res_buf) = %SBTTL ‘rtnam_rename_action (res_len, res_buf)' 


2 


FUNCTIONAL DESCRIPTIGN: | 
Secondary action routine for the RENAME verb for RT11 only 
INPUTS: | 


res_len = Length of result name 
res_buf - address of result name 


IMPLICIT INPUTS: 
Command parameters and qualifiers as returned from CLI$ routines. Global environment ref'd by exch$ 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
Success or worst error encountered. 
SIDE EFFECTS: 
Files may be renamed. 


RMMNMMNMNMNNN — @ 3 3 3 3 3 = = BOG OOOO COOO OO 


FUN — OODNOAUN EWN OO ODNOUS WN OO CONGO UE WN OOO 


ee ee ea en, . | 
- 


Sdbgtrc_prefix ('rtnam_rename_action> '); 


LOCAL 
ctx2 : $ref_bblock 


LALA. AIAILAI 


' context block to look for duplicates 


WAAL EEE 


DONO NEW OOONOUS WN oO 


5 rfp : $bblock Cnan$e bln+nam$c_maxrss] ' related file perse - an RMS NAM block plus expanded string 
fin_put : $bvector Tilb$s_result_namel, ! a buffer in which to build the actual final name 
n_len, 
5 8 nam_len, 
; status 
5 BIND 
rtnam = exch$a_gbt Cexcg$a_rtnam_work] : gref bblock ! Pointer to work area 
out name = rtnan Crtnan$q_dutp t~filename) : Sdesc_block, 
nam = rtnam ([rtnam$a_out_namb] = $re Lock, 


filb = rtnam rtngase. np_filb) : $ref=bblock, 

volb = filb f ilb$a_assoc ~_ : Sref_bblock, 

ctx = filb Cfilb$a Context] : ret op ock 

ent = ctx CrtlictxS$a_ent_address) = $ref_bblock 


Sblock_check (2, .filb, filb, 450); 
$block_check (2, .volb, volb, 460); 


me ee ce ee ee ee a a ad nd at od ot = = tn 
SEAREREE 
mewn 
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v04-000 rtnam_rename_action (res_len, res_buf) 14-Sep-1984 12:29:08 EXCHNG.SRCJEXCRTNAM.B32;1 (14) | vC 
: Sblock check (2, .ctx, rtilctx, 444); ! Make sure that it is what we think it is 
§ ! If we haven't fetched the output name, do so now. This gives us a chance to carry the sticky device over | 
output name 


if NOT .rtnam Crtnam$v_out_fetched] 
THEN 


BEGIN 
LOCAL 
desc : VECTOR (2, LONG); 


desc FO} = -res_len; 
desc -res_buf; 


09090009 <j ~~ ~~ dd 
y tet ert, ie 


| 
| 
| 
| 
| 


SNA AAA AAAAAO 


am_len = “wok Cnam$b_name) + .rfp Crgm$b.ty typed; 
or “ten = .volb CvolbSl_vol_ident_len _len 
iiss check (2, (.fin_Ten CEQU fTlb$s_ result” “nene). 161) 


! Length of volume ident plus file name 


PPO 


OPY (.volb Cvoib$i~ “vol_ident_len], volb Cvolb$t_vol ident) ! Volume name 
-nam_len, .rfp Cnam$l_name)> 0, filbss _result_name, tin buf); | 


$trace_print_fao (‘related "!AF’’, final “!AF*", .res_len, .res_buf, .fin_len, fin_buf); | 
! Make sure he isn't trying to move it between devices 


QESRANLSS 


1F vote NEQ .namb Cnamb$a_assoc_volb] 
$exch_signal_return (exch$_norendev); 


ee ee ee ee ee i el ee ee eee Ss 
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85 Fetch the desired filename and a pointer to a namb 

ey 4 iF NOT (status = exch$cmd_parse_filespec (ZASCID ‘OUTPUT’, desc, 0, rtnam C[rtnam$q_output_filename], nam 
89 $Sexch_signal_return Concns "eee 1, rtnam Crtnam$q_output_ filename). -Status); 

90 7 rtnam (rtnam$a_out ~namb) = ave the namBb pointer 

4 es $trace_print_fao ("output “tas, expanded miageny rtnam C(rtnam$q_output_filename], namb Cnamb$q_ fullnam | 
$8 g If we have been given an invalid filename, then choke 
32 8 if .namb Cnamb$v_bad_pdp_char] 
44 5 -namb Cnamb$v_rt_truncate] 
4 : Sexch_signal_return (exch$_badfilename, 3, out_name, .volb Cvolb$l_vol_type_len], volb Cvolb$t_vol_t | 
4 Se rtnam (rtnam$v_out_fetched] = true; 
08 36 END; 
04 8 
be 4 Perform a related file parse to get the final name 
07 4 if NOT (status = exch$cmd_related file parse ( 
08 91 -out_name Cdsc$w_Tength], .out_name Cdsc$a_pointer], ! Command Line name string 
09 4 -res_len, .res_buf, ! Related file name 

° 32 3 THEN prs 

§ e2 Sexch_signal_return (exch$_badfilename, 3, out_name, .volb Cvolb$l_vol_type_len], volb Cvolb$t_vol_type] 

i 3 
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RT=11 name manipulation routines 1b-se “1984 01:21:55 AX-11 Bliss-32 V4.0-74 Pp 9) E) 
rtnam_rename, ection (res_len, res_buf) 1 30071382 9:55:88 YEXCHNG SRE EXCRYNAN. 03951 a9 33 v 


— 


We need to make sure that the output name doesn't already exist 


ctx2 = xchSutit oti lets allocate f.velb. 0); ! Get a context block so we can look 
IF exch$rtacp_find_file T.ctx2, .rfp Cnam$l_named, .nam_len) 


sent NEQA .ctx2 (rtlictx$a_ent_address) ! Let him rename it to the same, necessary for RENAME /PROTE 
Sexch_signal (exch$_norenexists, 4, .res_len, .res_buf, .fin_len, fin_buf) 


Everything is ok, do the rename 


ELSE 
BEGIN | 
Convert the name to radix50 and put in into the directory buffer 
exch$util_radix50_from_ascii (.rfp Cnam$b_name], .rfp Cnam$l_name), 

rtlictx$s_exp_name, ent Ertllent$l_filename]); 
exch$util_radix50_from_ascii (.rfp Cnam$b_type] - 1, .rfp Cnam$l_type] + 1, 

rtlictx$s_exp_type, ent (rtiTent$w_filetype]); 
Also change the name in the context buffer, since it will be used by EXCHSRTACP_CHECK_POSITION 


ctx pres Teenet wt j}onaney = .ent Crtllent$l_filename); 
ctx (rtlictx$w_filetype] = .ent [rtllent$w_filetypel: 


If a protection change was requested, do it here 
i -rtnam C(rtnam$v_q_protect_explicit] 
ent Crtllent$v_typ_protected] = ctx C(rtlictx$v_typ_protected] = .rtnam (rtnam$v_q_protect]; 
Update the directory 
exch$rtl1_dirseg_put (.volb, .ctx Crtlictx$l_seg_number)); ! Write the directory segment 
Log the action if requested 
a ae Crtnam$v_q_log] 
say, NTA BGO (exch$_renamed, 4, .res_len, .res_buf, .fin_len, fin_buf); 


: Release the context block 
exch$util_rtilctx_release (.ctx2); 
RETURN true; 

END; 
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-PSECT EXCHSRTNAM_PLIT,NOWRT,2 


00 00 54 55 50 54 55 4F 00060 P.AAP: .ASCII \QUIPYT \<0><0> : 
A 43 eg P.AAO: .LONG 17694726 ; 
0000000" 6C «ADDRESS P.AAP : 


RT=-11 name manipulation routines 
rtnam_rename_action (res_len, res_buf) 


SE FD90 
50 000000006 5 
oc 
54 st A6 
50 4 y 
52 O35B00FA 
5 01C2 
50 $3 
$7 000000006 
52 041B00F3 
3h o1cc 
000000006 
52 008200F4 
34 01BC 
000000006 
47 20 Ab 
08 AE 04 
30 
14 
0000° 
00000000G_ EF 
‘6 
52 000000006 
000000006 00 
50 30 
24 6E 
1F 6— AO 
20 AG 
0110 
7€ 04 
04 
7E 
000000006 gf 
4 


1¢ 
52 000000006 
3D 
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K 
18-$8p-1986 12:59:08 LEXCHNGeSRESERCRTNAR. B39; 


EXCHS$_NORENEXISTS 
EXCHS~RENAMED 


EXCHSRTNAM_CODE ,NOWRT ,2 


RNA RENAE ACTION. Save R2,R3,R4,R5,R6,- 
R9,R10,R11 


NEPAD XK ALD WININ DWN 


vie * Biitinaeleaia 
2 R 


PJ pce er tep we ty ete ty, 1 


P. AAO 

#5, EXCHSCMD_PARSE_FILESPEC 
RO, STATUS 

STATUS, 1$ 

WEXCHS_PARSEERR, TEMP 
#*M<R3,R4> 


TEMP 
#4, LIBSSIGNAL 


3 

(R3), -(SP) 

#5, EXCHSCMD_RELATED_FILE_PARSE 
RO, STATUS 


TAYUS, 5$ 
HEXCHS BADFILENAME, TEMP 
93(R7) 
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10 
RT-11 name manipulation routines 18-S0 1984 01:21:55 AX-11 Bliss-32 V4.0-74 Pa 41 
rtnem_rename. action (res_len, res_buf) 1 300-1382 9:35:08 LEXCHNG. SRE EXCRTNAM.B32;1 9°44) 
59 AZ DD 00007 PUSHL 89(R7) ; 
DD OOODA PUSHL R : 
Bb Sump ey 
000000006 00 05 FB 4 ia CALLS i. LIBSSIGNAL ; 
0 FEDB CD 9A OO00E9 5$ MOVZBL RFP+59, RO + 1297 
1 FEDC gp 9a OO0E MOVZBL REP+60, R1 : 
6E 9 1 C1 OF ADDL3 R1, RO. NAM_LEN : 
04 AE 65 A 6E C1 000F ADDL3 NAM_LEN, VOTCR?), FIN_LEN + 1298 
00000100 «BF 04 AF D1 OO00FD CMPL FINTLEN, #256 + 1299 
13° (1B 105 BLEGU 6$ ; 
7E Al 8F 9A 00107 MOVZBL #161, =(SP) : 
000000006 Br b> boron Peet Sexcus BADLOGIC : 
000000006 90 03 FB 00113 CALLS A} IBSSTOP : 
B FEEC cD OO11A 6$: MOVL  RFP+76, R11 + 1301 
SA 0100 8F 3C OO11F MOVZWL #256, R10 + 1300 
59 19 Ag E 00134 MOV FIN Bur RI : 
00 69 A7 6 M4 2¢ 001 8 MOVCS  101TR7). 105(R7), #0, R10, (R9) : 
OE 18 00139 BGEQ 36s 7$ : 
59 65 A? CO 00132 ADDL2 101(R7), RO : 
SA 65 Az C2 00136 SUBL2  101(R7). R10 : 
00 68 6 2¢ 01 A MOVCS NAM_LEN, (R11), #0, R10, (R9) : 
50 30 Ad dO 00140 7S: MOVL  48(R6), RO + 1307 
74 AO 57 01 00144 CMPL = R7, - 116 (RO) : 
14 13 00148 BEQL 9$ : 
52 000000006 BF DO 0014A MOVL #EXCHS_NORENDEV, TEMP + 1309 
52 DD 00151 ?USHL TEMP é 
000000006 00 01 FB 00153 CALLS #1, LIBS$SIGNAL ; 
5 52 00 00154 8$: MOVL TEMP, RO : 
04 0915 RET ; 
ze D4 0015E 9S: CLRL = =( SP) + 1313 
57 DD 00160 PUSHL R7 : 
000000006 EF 02 FB 00162 CALLS 2, EXCHSUTIL_RT11CTX_ALLOCATE : 
53 50 00 0016 MOVL RO, CTX2 ; 
6E DD 0016C PUSHL NAM_L + 1314 
0808 8F BB 0016 PUSHR #*MZR3,R11> : 
000000006 EF 03 FB 017 CALLS #3, EXCHSRTACP_FIND_FILE : 
18 E9 0017’ BLBC = RO. :10$ : 
7E OA 7E AB 01 OO17C CMPL 126(R8), 126(CTX2? > 1316 
14 13 O18] EQ. ~=s:‘10$ : | 
10 AE 9F 00183 PUSHAB FIN_BUF > 1318) 
08 AE pp 0186 PUSHL FIN7LEN ; 
7E 4 AC 70 001 OVO  RESLEN, -(SP) ; 
4 DD 0018D PUSHL 4&4 : 
000000006 8F DD 0018F PUSHL #EXCHS_NORENEXISTS ; 
11 001 5 BRB 12$ : | 
52 ze A pO 197 10$: MOVL 126(R8), R2 : 1328 
02 A2 9F 00198 PUSHAB 2(R2) ; 
06 DD 0019 PUSHL #6 : 
B pp 1A PUSHL R11 F 
7E FEDB cD A OO1A MOVZBL RFP+59, -(SP) ; 
000000006 _ EF 4 FB iA CALLS #4, EXCHSUTIL_RADIX5O_FROM_ASCI1 ; 
06 A2 9F OOTAE PUSHAB 6(R2) : 1330 


nade ] 

m 10 | 

EXCHSRTNAM RT-11 name manipulation routines 16-Sep-1984 01:21:5 AX-11 Bliss-32 V4.0-74 Page 42 

v04-000 rtnam_rename, ection (res_len, res_buf) 137808-1 382 93:39:08 LEXCHNG SROSEXCRINAM.B3 31 . (14) 
3 0D 00181 PUSHL #3 : 

7E FEFO cp 1 gi 1B ADDL3 #1, REP+80, =-(SP) : 1329 
E FEDC CD 9A 00189 MOVZBL RFP+60, -(SP) : 
6 D7 0018 DECL P) : 

000000006 EF 4 F iC CALLS #4, EXCHSUTIL_RADIX5O_FROM_ASCII : 1330 

A AB 02 =A p 1¢ OVL (3), 38 (RB) + 1334 

— AB 06 A 1€C MOVW (R2), 62(R8) : 1335 

12 i a6 E1 00101 BC #2, 28 (RG) 11$ : 1339 

50 1c 6 1 1 EF 00106 EXTZvV. #1, #1, B(RG) RO + 1341 
39 AB 01 7 FO 1D INSV RO, #7, #1, 57(R8) : 
01 A 01 07 F 1E INSV RO, #7, #1. 1(R2) : 

76 AS DD 001E8 11$:  PUSHL 118 RBS + 1345 
57 DD OO1EB PUSHL 7 : 
000000006 EF 02 FB OOiED CALLS #2, EXCHSRT11_DIRSEG_PUT : 

19 1c A : O1F4 BLBC 28(R6), 13$ + 1349 

10 AE 9F oir PUSHAB FIN_BUF : 1351 
08 AE pp O1FB PUSHL FINTLEN : 
7E 04 AC 7D OO1FE VQ RES“LEN, -(SP) : 
04 DD 00202 PUSHL #4 : 
000000006 8F DD 00204 PUSHL #EXCH$_RENAMED : 
000000006 00 06 FB 0020A 128 CALLS #6, LIBSSIGNAL : 

53 DD 00211 13$ PUSHL  CTX2 : 1356 
000000006 EF 01 FB 00213 CALLS #1, EXCHSUTIL_RT11CTX_RELEASE : 

50 01 00 OOgtA MOVL #1. RO : 1358 

04 0021D : 1359 

; Routine Size: 542 bytes, Routine Base: EXCHSRTNAM_CODE + 090C 


ee . } 
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Set-ils lt canen. penena actlae Aiea tek, eae bell 10738p7198e 92:59:08  LEXCHNG SRETERCRYNAN. 04551 Page 433 

: 138 1369} EN oy | 
| 

~EXTRN LIBSSIGNAL, LIBS$STOP 

; PSECT SUMMARY 

; Name Bytes Attributes 

¢ EXCHSRTNAR PLT 2bs8 NOVEENOURT, RD” ERECNOSHR: CEES RECS EONCNOPIE-ALIGNCS) 


Library Statistics 


Peo ge ae A” ite ee wm Syebel§ ecceesee Pages Processing 

5 File Total ioaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;1 18619 0 1000 00:01.9 

> _$255$DUA28: CEXCHNG.OBJJEXCLIB.L32;1 1151 139 12 79 00:01.3 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:EXCRTNAM/OBJ=OBJ$:EXCRTNAM MSRC$:EXCRTNAM/UPDATE=(ENHS$:EXCRTNAM) 


: hy re 2858 coge.* 112 data bytes 
3; Elapsed test ss 32.2 

3 Lines/CPU Min: 662 

3; Lexemes/CPU-Min: 19939 

3 paneey Used: 217 pages 
3; Compila 
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